﻿Public Class ven_reacciones

   

   

    Private Sub btn_verreacciones_Click(sender As Object, e As EventArgs) Handles btn_verreacciones.Click
        Dim n4 As Integer = dgvrapoyo.Rows.Add()

        dgvrapoyo.Rows.Item(n4).Cells(0).Value = r1x
        dgvrapoyo.Rows.Item(n4).Cells(1).Value = r1y
        dgvrapoyo.Rows.Item(n4).Cells(2).Value = r1z
        dgvrapoyo.Rows.Item(n4).Cells(3).Value = r2x
        dgvrapoyo.Rows.Item(n4).Cells(4).Value = r2y
        dgvrapoyo.Rows.Item(n4).Cells(5).Value = r2z
    End Sub

    Private Sub btn_ok_ven_reacciones_Click(sender As Object, e As EventArgs) Handles btn_ok_ven_reacciones.Click
        Me.Close()

    End Sub
End Class